home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / program / tpwpxeng.zip / SAVE.PAS < prev    next >
Pascal/Delphi Source File  |  1991-07-22  |  902b  |  42 lines
  1. {$N+}
  2. program Save;
  3. uses PXEngine, WinCrt;
  4.  
  5. const TableName = 'Table';
  6.  
  7. var   PxErr: Integer;
  8.       TblHandle: TableHandle;
  9.       RecHandle: RecordHandle;
  10.       I: Integer;
  11.       AnyDoub: Double;
  12.  
  13. procedure PX(Code : integer);
  14. begin
  15.   writeln(PXErrMsg(Code));
  16. end;
  17.  
  18. begin
  19.   PX(PXWinInit('MyApp', pxShared));
  20.   PX(PXTblOpen(TableName, TblHandle, 0, False));
  21.   PxErr := PXRecBufOpen(TblHandle, RecHandle);
  22.   if PxErr <> PxSuccess then
  23.     Writeln(PXErrMsg(PxErr));
  24.   for I := 1 to 10 do
  25.   begin
  26.     AnyDoub := I;
  27.     PX(PXPutDoub(RecHandle,1, AnyDoub));
  28.     PX(PXRecAppend(TblHandle,RecHandle));
  29.  
  30.     (* Save the table to disk every fifth append *)
  31.     if I mod 5 = 0 then
  32.     begin
  33.       PxErr := PXSave;
  34.       if PxErr <> PxSuccess then
  35.     Writeln(PXErrMsg(PxErr));
  36.     end;
  37.   end;
  38.   PX(PXRecBufClose(RecHandle));
  39.   PX(PXTblClose(TblHandle));
  40.   PX(PXExit);
  41. end.
  42.